home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / ilisp / ilisp-s2c.el.z / ilisp-s2c.el
Encoding:
Text File  |  1998-05-21  |  3.4 KB  |  83 lines
  1. ;;; -*- Mode: Emacs-Lisp -*-
  2.  
  3. ;;; ilisp-s2c.el --
  4.  
  5. ;;; This file is part of ILISP.
  6. ;;; Version: 5.8
  7. ;;;
  8. ;;; Copyright (C) 1990, 1991, 1992, 1993 Chris McConnell
  9. ;;;               1993, 1994 Ivan Vasquez
  10. ;;;               1994, 1995, 1996 Marco Antoniotti and Rick Busdiecker
  11. ;;;               1996 Marco Antoniotti and Rick Campbell
  12. ;;;
  13. ;;; Other authors' names for which this Copyright notice also holds
  14. ;;; may appear later in this file.
  15. ;;;
  16. ;;; Send mail to 'ilisp-request@naggum.no' to be included in the
  17. ;;; ILISP mailing list. 'ilisp@naggum.no' is the general ILISP
  18. ;;; mailing list were bugs and improvements are discussed.
  19. ;;;
  20. ;;; ILISP is freely redistributable under the terms found in the file
  21. ;;; COPYING.
  22.  
  23.  
  24. ;From: Jeffrey Mark Siskind <qobi@cs.toronto.edu>
  25. ;To: ilisp@naggum.no
  26. ;Subject: ILisp 5.5 and Scheme->C
  27. ;Reply-To: Qobi@cs.toronto.edu
  28. ;Date:     Thu, 15 Dec 1994 22:55:05 -0500
  29.  
  30. ;Is anybody using ILisp 5.5 with Scheme->C? I don't know much about the
  31. ;internals of ILisp and have created a defdialect by analogy with the other
  32. ;defdialect forms.
  33.  
  34. (defdialect qsci "Qobi Scheme->C" scheme
  35.  (setq comint-fix-error ":X"
  36.        ilisp-reset ":A"
  37.        comint-continue ":C"
  38.        comint-interrupt-regexp ">>Interrupt:"
  39.        ilisp-eval-command
  40.        "(begin (eval (read (open-input-string \"%s\"))) \"%s\" \"%s\")"
  41.        ilisp-package-command "%s"    ;needs work
  42.        ilisp-block-command "(begin %s)"
  43.        ilisp-load-command "(loadq \"%s\")"
  44.        ilisp-load-or-send-command "(begin \"%s\" (ld \"%s\"))"
  45.        ild-abort-string ":A"
  46.        ild-continue-string ":C"
  47.        ild-next-string ":N"
  48.        ild-previous-string ":P"
  49.        ild-top-string ":<"
  50.        ild-bottom-string ":>"
  51.        ild-backtrace-string ":B")
  52.  (ilisp-load-init 'qsci "/u/qobi/emacs/qsci"))
  53.  
  54. (cond ((or (equal (system-name) "qobi.ai")
  55.            (equal (system-name) "dvp.cs")
  56.            (equal (system-name) "qew.cs"))
  57.        (setq qsci-program "/u/qobi/bin/sun4/5.3/qsci"))
  58.       (t (setq qsci-program "/u/qobi/bin/sun4/4.1.2/qsci")))
  59.  
  60. ;The strange thing is that sometimes it works and sometimes it doesn't. And I
  61. ;am having difficulty figuring out what I am doing wrong. I should mention that
  62. ;I am using a customized version of Scheme->C (qsci) that has my own debugger
  63. ;instead of the default one. My debugger provides Lucid-like commands for
  64. ;moving up and down the stack, displaying backtraces and locals, aborting,
  65. ;continuing, etc. I will give any interested party a copy of my enhancements to
  66. ;Scheme->C. I also use the debugger with ILD, my extension to ILisp 5.5 that
  67. ;provides a uniform set of single keystroke commands for accessing the
  68. ;different CommonLisp/Scheme debuggers. That explains the ild-* bindings above.
  69.  
  70. ;Here are my questions: What are the appropriate values for comint-fix-error,
  71. ;ilisp-reset, comint-continue, comint-interrupt-regexp, ilisp-eval-command,
  72. ;ilsip-package-command, ilisp-block-command, ilisp-load-command,
  73. ;and ilisp-load-or-send-command. What exactly should these control strings do?
  74. ;What % arguments do they take. The minimum functionality I would like to have
  75. ;is the ILisp commands c-z l and c-z e. Later on I would like to add c-z a,
  76. ;m-TAB, and m-. but I realize that I'll need to add hooks in Scheme->C for
  77. ;these. I would ideally like to modify c-z D and c-z A to look things
  78. ;up in R4RS.
  79.  
  80. ;    Jeff (home page http://www.cdf.toronto.edu/DCS/Personal/Siskind.html)
  81.  
  82. ;;; end of file -- ilisp-scc.el --
  83.